Option Explicit
Sub L_Sample002()
    'ոL_Data02
    Dim mySht    As Worksheet
    Dim myConf   As Shape
    Dim myStr    As String
    Dim myTmpStr As String
    Set mySht = Worksheets("L_Data02")			'N
    mySht.Activate
    For Each myConf In mySht.Shapes
        With myConf
            If .Type = msoFormControl Then
                myStr = myStr & .Name & ":"
                Select Case .FormControlType
                    Case xlButtonControl: myTmpStr = "ButtonControl"
                    Case xlCheckBox: myTmpStr = "CheckBox"
                    Case xlDropDown: myTmpStr = "DropDown"
                    Case xlEditBox: myTmpStr = "EditBox"
                    Case xlGroupBox: myTmpStr = "GroupBox"
                    Case xlLabel: myTmpStr = "Label"
                    Case xlListBox: myTmpStr = "ListBox"
                    Case xlOptionButton: myTmpStr = "OptionButton"
                    Case xlScrollBar: myTmpStr = "ScrollBar"
                    Case xlSpinner: myTmpStr = "Spinner"
                End Select
                myStr = myStr & myTmpStr & vbCrLf
            End If
        End With
    Next
    MsgBox myStr
    Set mySht = Nothing					'
End Sub
